home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / coolab1a / credits.frm next >
Text File  |  1999-09-14  |  6KB  |  197 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    ClientHeight    =   855
  5.    ClientLeft      =   2490
  6.    ClientTop       =   1725
  7.    ClientWidth     =   2025
  8.    ControlBox      =   0   'False
  9.    Icon            =   "credits.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    PaletteMode     =   1  'UseZOrder
  14.    ScaleHeight     =   855
  15.    ScaleWidth      =   2025
  16.    ShowInTaskbar   =   0   'False
  17.    StartUpPosition =   2  'CenterScreen
  18.    Begin VB.Timer Timer1 
  19.       Enabled         =   0   'False
  20.       Interval        =   50
  21.       Left            =   840
  22.       Top             =   6840
  23.    End
  24.    Begin VB.Label Label6 
  25.       Alignment       =   2  'Center
  26.       BackColor       =   &H00C0C0C0&
  27.       Caption         =   "Theresa Dixson"
  28.       BeginProperty Font 
  29.          Name            =   "Verdana"
  30.          Size            =   9.75
  31.          Charset         =   0
  32.          Weight          =   700
  33.          Underline       =   0   'False
  34.          Italic          =   0   'False
  35.          Strikethrough   =   0   'False
  36.       EndProperty
  37.       ForeColor       =   &H00FF0000&
  38.       Height          =   255
  39.       Left            =   0
  40.       TabIndex        =   6
  41.       Top             =   5400
  42.       Width           =   2055
  43.    End
  44.    Begin VB.Label Label5 
  45.       Alignment       =   2  'Center
  46.       BackColor       =   &H00C0C0C0&
  47.       Caption         =   "Grahics Design"
  48.       BeginProperty Font 
  49.          Name            =   "Verdana"
  50.          Size            =   9.75
  51.          Charset         =   0
  52.          Weight          =   700
  53.          Underline       =   0   'False
  54.          Italic          =   0   'False
  55.          Strikethrough   =   0   'False
  56.       EndProperty
  57.       ForeColor       =   &H00800000&
  58.       Height          =   255
  59.       Left            =   0
  60.       TabIndex        =   5
  61.       Top             =   5160
  62.       Width           =   2055
  63.    End
  64.    Begin VB.Label Label3 
  65.       Alignment       =   2  'Center
  66.       BackColor       =   &H00C0C0C0&
  67.       Caption         =   "Software Design"
  68.       BeginProperty Font 
  69.          Name            =   "Verdana"
  70.          Size            =   9.75
  71.          Charset         =   0
  72.          Weight          =   700
  73.          Underline       =   0   'False
  74.          Italic          =   0   'False
  75.          Strikethrough   =   0   'False
  76.       EndProperty
  77.       ForeColor       =   &H00800000&
  78.       Height          =   255
  79.       Left            =   0
  80.       TabIndex        =   4
  81.       Top             =   3720
  82.       Width           =   2055
  83.    End
  84.    Begin VB.Label Label2 
  85.       Alignment       =   2  'Center
  86.       BackColor       =   &H00C0C0C0&
  87.       Caption         =   "In Random Order"
  88.       BeginProperty Font 
  89.          Name            =   "Verdana"
  90.          Size            =   9.75
  91.          Charset         =   0
  92.          Weight          =   700
  93.          Underline       =   0   'False
  94.          Italic          =   0   'False
  95.          Strikethrough   =   0   'False
  96.       EndProperty
  97.       ForeColor       =   &H00FF0000&
  98.       Height          =   255
  99.       Left            =   0
  100.       TabIndex        =   3
  101.       Top             =   2880
  102.       Width           =   2055
  103.    End
  104.    Begin VB.Label Label1 
  105.       Alignment       =   2  'Center
  106.       BackColor       =   &H00C0C0C0&
  107.       Caption         =   "The Creators"
  108.       BeginProperty Font 
  109.          Name            =   "Verdana"
  110.          Size            =   12
  111.          Charset         =   0
  112.          Weight          =   700
  113.          Underline       =   0   'False
  114.          Italic          =   0   'False
  115.          Strikethrough   =   0   'False
  116.       EndProperty
  117.       ForeColor       =   &H00000000&
  118.       Height          =   255
  119.       Left            =   -120
  120.       TabIndex        =   2
  121.       Top             =   1800
  122.       Width           =   2295
  123.    End
  124.    Begin VB.Label Label4 
  125.       Alignment       =   2  'Center
  126.       BackColor       =   &H00C0C0C0&
  127.       Caption         =   "Emmett Dixson"
  128.       BeginProperty Font 
  129.          Name            =   "Verdana"
  130.          Size            =   9.75
  131.          Charset         =   0
  132.          Weight          =   700
  133.          Underline       =   0   'False
  134.          Italic          =   0   'False
  135.          Strikethrough   =   0   'False
  136.       EndProperty
  137.       ForeColor       =   &H00FF0000&
  138.       Height          =   255
  139.       Left            =   0
  140.       TabIndex        =   1
  141.       Top             =   3960
  142.       Width           =   2055
  143.    End
  144.    Begin VB.Label Label7 
  145.       Alignment       =   2  'Center
  146.       BackColor       =   &H00C0C0C0&
  147.       Caption         =   "Click To Close"
  148.       BeginProperty Font 
  149.          Name            =   "MS Sans Serif"
  150.          Size            =   12
  151.          Charset         =   0
  152.          Weight          =   700
  153.          Underline       =   0   'False
  154.          Italic          =   0   'False
  155.          Strikethrough   =   0   'False
  156.       EndProperty
  157.       ForeColor       =   &H00000000&
  158.       Height          =   375
  159.       Left            =   0
  160.       TabIndex        =   0
  161.       Top             =   6360
  162.       Width           =   2175
  163.    End
  164. End
  165. Attribute VB_Name = "Form1"
  166. Attribute VB_GlobalNameSpace = False
  167. Attribute VB_Creatable = False
  168. Attribute VB_PredeclaredId = True
  169. Attribute VB_Exposed = False
  170. Option Explicit
  171.  
  172. Private Sub Form_Load()
  173.     Timer1.Enabled = True
  174.  
  175. End Sub
  176.  
  177. Private Sub timer1_Timer()
  178. Label1.Top = Label1.Top - 50
  179. Label2.Top = Label2.Top - 50
  180. Label3.Top = Label3.Top - 50
  181. Label4.Top = Label4.Top - 50
  182. Label5.Top = Label5.Top - 50
  183. Label6.Top = Label6.Top - 50
  184. Label7.Top = Label7.Top - 50
  185.  
  186.  
  187. If Label7.Top = -100 Then Timer1.Enabled = False
  188.  
  189.  
  190. End Sub
  191.  
  192. Private Sub Form_Click()
  193.     Unload Me
  194.     
  195. End Sub
  196.  
  197.